Program editor 

















9358 20FEDA 107 JSR CRLF 
035k 408. 3 
035& 109 3 CARICA INIZIO LINEA ASIC IN 
0350 410 3 INL E INHy CARICA Th FURTATURE 
Dict bry SCE ELA PR Ons, : LINEA, HETTE 
ROGER R BEE aide A 35b 13 ; thota Fine us ates anti eet 
03% 423 7 ED TNPINE Ji NUMERG OF LINEA 
9358 1140 ¢ TRATTATA IN LIWL & LIWH 
9358 ws 
033F eo 5 eB AS 
O33F Agz1 6i STRETT LDA #133 oaee poe ae be tae ae 
a * * jae ios - : 
Sasi Boek ae Bie Nasr esas = 148 STA F1 : 
Z 0343 4Ce803 83 - wh OTRE 0341 ASA 119 tba FINA . : 
“4 cae 0363 858D 120 STA INH 
8) Ab Late La FINESTRA ad BYTES 0365 8586 121 STA F1t1 
aa : 0367 A000 122 Coy 4800 
“7 LARCA LDA a tae 9367 #185 123 UDA (P1)7¥ 
He eT 130 0346 8589 3124 STA FINE 
3 uxt EXIT 03460 208303 425 JSR INCF2 
cA 0379 195° 126 LOA (FI) 5Y 
1: 7 COMANDO FIND RICERCA SUESTRING 0372 858A = 127 ST@ FINH 
92 5 7 0374 208303 128 JSR XNCFL : 
93 FIND EQU = 0377 6185 129 LDA (F1)6¥ : 
ga 3 0379 8597 130 STA LINE 
95 3 CONTROLLO LUNGHEZZA STRINGA 0378 206303 131 JSR INCPL : 
96 3 Oa7E E185 132 LOA (F1d¢¥ ’ 
97 CONTR TYA 0380 8588 133 STA LINH oe 
O34E FOES a BEQ ERRORE 0382 134 3 A" 
0358 99 i : ouaz 339 | RICERCA SOTTOSTRINGA 
3 NTO OL FINI € FINH A 
cree 380- "| conzanANENTO x FNL E #333 cooseo 12% kzcen vse avers 
0350 192 3 $385 B288o2 $39 Loop CBA S203ex 
0350 AT67 203 FOSIZ LOA $67 0380 CICS 140 che 87GB” + 
9352 a589 204 STA FINL asec Fo10 143 EEQ TROVAT 4 
0354 A568 108 LDA $68 038€ R105 142 < Y 
‘ 9356 asea 106 STA FINH Ff i ag, roa (022s : 
03970 F018 143 GEG TESTFF ; 
0392 Dpaa02 144 CHP $2036X q 
\ 0395 DOEB 145 ENE RICER § 
0397 206303 146 JSR INCPL 
0394 EB 147 INK 
0398 4C8703 148 MNP LOOP 
039E 149 3 é 7a 
039E 150% TROVATA LA SOTTOSTRINGA CERCATA q 
039 151 + STAMPA DEL NUMERO OFLLA LINEA GASIC 
VETTORE & 0395 152 5 : 
0396 AéO7 453° TROVAT EDX Lent 4 
0340 A580 154 LOA LINK 
03a2 2024ED 15% OSR LINPRT 
0385 AvAC 156 LDA het 
03A7 20EDFD 157 JSR OUTC 
050A 188 3 
034A 159 ¢ TEST SE FINE FROGRAMMA CHE E 
030A 160% SEGNALATO OA UND ZERO NEL BYTE 
03AA 161 3 PIU' SIGNIFICATICO DELL'INDIRIZZ0 f 
026A 162 + DELLA LINEA BASIC SUCCESSIVA 
030A 163 3 
D3AA A001 164 TESTFP LDY «$03 . 
03AC B18C =—165 LDA CINL) rY 
O3AE FO0A 166 BEQ FINE h 
03E0 405603 167 JMP LOOPL 
0383 168 
9363 169 3 
{ 0353 170 ¢ SUBROUTINE CHE XNCRENENTA PL : 
{ 03R3 171 3 5 
0263 €685 172 INCPL INC PL 
: 0365 0002 173 BNE EXINC 
! 0367 E686 174 INC PLL . 
0389 60 175 EXINC RTS 
] 038A 176 3 
* 0368 477 3 
? O3EA 179 3 FINE PROGRAMMA 
? 0364 179 ¢ 
41 938A 180 j CA@NCELLA L'ULTIMA VIRGOLA SCRITT& 
03BA 1810 3 
i O3EA C424 182 FINE  O€C CH 1 
: O3BC APAD 183 Loa #* { 
0386 20EDFD 184 JSR OUTC 4 
i 03C1 20FBDA 185 JSR CRLF 
i 03c4 186 
. 03c4 1674:.5 POSIZIONAMENTO A FINE COMANDO ! 
i 0304 188223 EASIC. SENZA QUESTA ISTRUZTONE : 
H 0304 189 % IL BASIC DAREBEE PSYNTAX ERROR 
H 03c4 190 % AL RIENTRO DA QUESTA ROUTINE 
03c4 1913 2 
0304 2095D9 192 EXIT JSR DATA 
03€7 60 493 4ULT RTS 
194 END 


xxx END OF ASSEMELY 
(ORO OTE I 


* * 
= SYMBOL TABLE -- V 1-5 * 
* 


ee et ee 


Figura 1 : 1 caksviaueniniacnde eb . 
Z . ek PASS LAREL. LOC. LABEL. LOC. LABEL. LOC. 
nelt'accumulatore sul dispositi- — numero deve essere compreso xx ZERO PAGE VORTAC EE 7 LINH 0083 FIN. 009 FINA tt 
vo di output attivo in quel mo- tra 0 e 65535. 84, TNL anak Gone 
; menio. Questo @ di solito il vi- SYNTAX {indirizzo $DEC9). xx ABSOLUTE VARAELES/LACELS 
i deo a meno che non sia stato E una routine dell'Applesoft che OUTC FDEO LINPRT £024 SYNTAX DEC? CRLF = DATE e038 
. " Pr . : SI iz “KDR ‘a 
cambiato tramite it comando stampa il messaggio | Sc"*,, %8yaygu  FORR TNTZIO Batt Seal eee 
PR#n. “?2SYNTAX ERROR”. STRETT O33F LARGA .0946 FIND 0340 CONTR 0340 FOSTZ $5 
4 fet fj + eee sa OF: 9358 
—— LINPRT (inditizzo SED24).E ° CRLF (indirizzo $DAFB). RICER 1282 LOOP 0387 TROVAT O39E TEST O3AA INCFL 02 
una routine dell'Applesoft molto Routine dell'Appiesoft che £9 EXING OB, osc uLT * 09c7 


utile che permette di stampare 
sut dispositivo di output altivo il 
numero binario intero non se- 
gnato contenuto nei registri X 
fnarte bassa) e A (parte alta). Il 


7Q - :982¢ sa 


peg SMe cee eee 
(SSRI Zee coe beeen seer 


stampa la sequenza carriage- 
return line-feed. 

- DATA {indirizzo $D995). Rou- 
tine dell’Applesoft che si posi- 
ziona a fine statement BASIC 


pecan RET PE cate tne mene 


SYMBOL TAGLE STARTING ADDRESS #46000 
SYMBOL TALLE LENGTHIO11A 


Listato 2 











FINE LINEA — FINL, FINI 
NUMEAD LINEA ~ Libr, LIN 
o-7 











Pregram editor 


sia nei comandi diretti che al- 
finterno di un programma. 
Questa viene usata a fine pro- 
gramma ed @ indispensabile 
per rientrare correttamente in 
BASIC. Senza tale routine il 
programma rientrefebbe in BA- 


SiC dando il messaggio ‘di. 


?SYNTAX ERROR: 

— HOME (indirizzo $FC58). E 
una routine del Monitor che 
cancella quanto é scritto sul vi- 
deo e riporta i! cursore a riga 1 
colonna 1. 

Per capire meglio il programma 
ricordiamo inoltre che la loca- 
zione decimale 33 contiene ta 
larghezza del "text window" e 
che la locazione $24 (nel pro- 
gramma chiamata CH), contie- 
ne la posizione attuale del cur- 
sore. 

Il programma @ ampiamente 
commentato e dovrebbe esse- 
re di facile comprensione con 
lausitio dei flow chart di figura 1 
e 2. Per la sua memorizzazione 
si pud agire scrivendo diretta- 
mente l'oggetto in memoria (li- 
stato 1) o meglio, se si dispone 
di un assembler, memoriz7an- 








REM --HNLTE PROTEGT THe Com 











e 

As PERK ¢ = aazseat KEM 8 
coaz 

END 

REM 

REA --wO CARD OR CANT HELA 


Aen 
IF PEEK (7emy © @ Teen EMD 
200 PRINT 2 PRINT *..-LAncuect C 


PRD CANNOT EE REVGAGLO'E Print 
UNE CL, THE SYSIER 25 REGO 









IMR SPRINTS 
Permitted 


Figura 3 - Esempio di uso del 
comando &F. 


*do le linge sorgente (listato 2). 

“Questultimo modo permette 
anche una facile rilocazione del 
programma se cid dovesse es- 
sere necessario. It programma 
é stato assembiato tramite l'as- 
sembler LISA, motto comodo e 
di facile uso. 
Un ultimo awertimento: il ca- 
tattere & fa parte dei comandi 
de! BASIC e quindi tutto quanto 
to segue viene tokenizzato fino 
al primo carriage-return. Atten- 
zione quindi che quando si ti- 
cercano delle sottostringhe es- 
se non contengano delle parole 
riservate del BASIC. os 





Magic Box 
Stampante grafica a 2 colori 
Velocita di stampa 260 car/sec 
Vita delia testa di stampa: 

un miliardo di caratteri 
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RD NONE ALI N FE S 





on RN RGN oo EA ORO ON 


